home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 July / 07_02.iso / software / xq-xsetup / files / setup.exe / {app} / plugins / XQ ComDlg Options 2.xpl < prev    next >
Text File  |  2002-03-30  |  3KB  |  91 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="4"
  3. "COUNT"="5"
  4. "UIPATH"="Appearance\System\Open/Save Dialog"
  5. "NAME"="Open/Save Dialog Places Bar"
  6. "LANGUAGE"="VBScript"
  7. "VERSION"="1.17"
  8. "OSVERSION"="000101"
  9. "TEXT 1"="Place #1"
  10. "TEXT 2"="Place #2"
  11. "TEXT 3"="Place #3"
  12. "TEXT 4"="Place #4"
  13. "TEXT 5"="Place #5"
  14. "DESCRIPTION 1"="Windows 2000 displays an "Places Bar" on the left side of the default Open/Save dialog."
  15. "DESCRIPTION 2"="You can add your own folders to this bar for quick access. Simply enter the exact path for each item you want to have appear."
  16. "DESCRIPTION 3"="Paths with Environment Variables are also valid, for example "%USERPROFILE%\Desktop" which will default to your Desktop directory."
  17. "DESCRIPTION 4"="NOTE: If you define ANY item here, you will lose the default shortcuts inside the places bar (e.g. Desktop). To restore this default look, clear all fields."
  18. "AUTHOR"="Xteq Systems"
  19. "CONTACTURL"="http://www.xteq.com"
  20. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  21. "COMMENT 1"="Setting detected by manish jain [emmjanex@hotmail.com]. Thanks!"
  22. "COMMENT 2"="No places bug detected by KEVIN3317!"
  23.  
  24.  
  25. sV1="HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Comdlg32\Placesbar\Place0"
  26. sV2="HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Comdlg32\Placesbar\Place1"
  27. sV3="HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Comdlg32\Placesbar\Place2"
  28. sV4="HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Comdlg32\Placesbar\Place3"
  29. sV5="HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Comdlg32\Placesbar\Place4"
  30.  
  31. sPath="HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Comdlg32\Placesbar\"
  32.  
  33. Sub Plugin_Initialize 
  34.  s=RegReadValue(sV1)
  35.  Call SetUIElement(1,s)
  36.  
  37.  s=RegReadValue(sV2)
  38.  Call SetUIElement(2,s)
  39.  
  40.  s=RegReadValue(sV3)
  41.  Call SetUIElement(3,s)
  42.  
  43.  s=RegReadValue(sV4)
  44.  Call SetUIElement(4,s)
  45.  
  46.  s=RegReadValue(sV5)
  47.  Call SetUIElement(5,s)
  48. End Sub
  49.  
  50.  
  51. Sub Plugin_CheckData(ElementIndex)
  52. End Sub
  53.  
  54.  
  55.  
  56. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  57.  Call WriteIt(1,sV1)
  58.  Call WriteIt(2,sV2)
  59.  Call WriteIt(3,sV3)
  60.  Call WriteIt(4,sV4)
  61.  Call WriteIt(5,sV5)
  62.  
  63.  'check if we have any values left
  64.  i=RegEnumValues(sPath)
  65.  if i=0 then
  66.     if RegPathExists(sPath) then
  67.        Call RegDeletePath(sPath)
  68.     end if
  69.  
  70.     Call MsgInformation("Default places bar has been restored")
  71.  end if
  72. End Sub
  73.  
  74. Sub WriteIt(ITM,PATH)
  75.  s=GetUIElement(ITM)
  76.  if len(s)>0 then
  77.     Call RegWriteValue(PATH,s,4)
  78.  else
  79.    if RegValueExists(PATH) then
  80.       Call RegDeleteValue(PATH)
  81.    end if
  82.  end if
  83. end sub
  84.  
  85.  
  86. Sub Plugin_Terminate 
  87. End Sub
  88.  
  89.  
  90.  
  91.